% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "auctions","read4","read4" v_sql="select title,artists.name,artists.lastname,EstimateFrom,EstimateTo,date,sheetsize,imagesize,mountsize,medium,sequence,bio,conditionReport,image,backimage,detailimage,ExhibitionHistory,inscriptions,details,Provenance,notes,literature from items,artists where items.artist *= artists.id and auctionid = " & request.querystring("auctionid") & " and items.sequence = " & request.querystring("id") Set RS = Conn.Execute(v_sql) Do While Not RS.EOF title=rs("title") name=rs(1) lastName=rs(2) EstimateFrom=rs("EstimateFrom") EstimateTo=rs("EstimateTo") dte=rs("date") sheetsize=rs("sheetsize") imagesize=rs("imagesize") mountsize=rs("mountsize") medium=rs("medium") sequence=rs("sequence") bio=rs("bio") conditionReport=rs("conditionReport") image=rs("image") backimage=rs("backimage") detailimage=rs("detailimage") ExhibitionHistory= rs("ExhibitionHistory") inscriptions=rs("inscriptions") details=rs("details") Provenance=rs("Provenance") notes=trim(rs("notes")) literature=trim(rs("literature")) rs.movenext loop rs.close conn.close %>
TO PRINT: SELECT PRINT IN THE FILE MENU
&auctionid=9801">RETURN TO PREVIOUS PAGE
![]() |
![]() |
||||
<% if not len(trim(backimage)) >0 then %> | |||||
There is no pertinent information on the back of this image. | |||||
There is no pertinent information to be detailed from this image. | |||||
| |||||
|
![]() ![]() ![]() | ||||
|
<% if not len(trim(inscriptions))=0 then %>![]()
<%= Inscriptions %>
<% end if %> <% if not len(trim(Provenance))=0 then %>![]()
<%= Provenance %>
<% end if %> <% if not len(trim(conditionreport))=0 then %>![]()
<%= conditionreport %>
<% end if %> <% if not len(trim(literature))=0 then %>![]()
<%= literature %>
<% end if %> <% if not len(trim(ExhibitionHistory))=0 then %>![]()
<%= exhibitionHistory %>
<% end if %> <% if not len(trim(bio))=0 then %>![]()
<%= bio %>
<% end if %> <% if not len(trim(notes))=0 then %>![]()
<%= notes %>
<% end if %>